/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 02 - 1986 / 02.10 Oct 86.sit / 02.10 Oct 86 / trap sources / trapspeed.pas

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 74 72 61 70 73 70 | 65 65 64 2e 70 61 73 00 |..trapsp|eed.pas.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 19 34 00 | 00 01 5f 9b 84 bf 8c 9b |......4.|.._.....|
|00000060| 84 bf 8c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 3f 30 00 00 |........|....?0..|
|00000080| 7b 20 74 72 61 70 74 69 | 6d 65 20 2d 2d 20 41 20 |{ trapti|me -- A |
|00000090| 70 72 6f 67 72 61 6d 20 | 74 6f 20 74 69 6d 65 20 |program |to time |
|000000a0| 76 61 72 69 6f 75 73 20 | 6d 65 74 68 6f 64 73 20 |various |methods |
|000000b0| 6f 66 20 64 6f 69 6e 67 | 20 61 20 74 6f 6f 6c 62 |of doing| a toolb|
|000000c0| 6f 78 20 74 72 61 70 3a | 0d 20 20 54 68 65 20 75 |ox trap:|.  The u|
|000000d0| 73 75 61 6c 20 6d 65 74 | 68 6f 64 2c 20 63 61 6c |sual met|hod, cal|
|000000e0| 6c 69 6e 67 20 61 20 75 | 73 65 72 2d 77 72 69 74 |ling a u|ser-writ|
|000000f0| 74 65 6e 20 72 6f 75 74 | 69 6e 65 20 74 6f 20 64 |ten rout|ine to d|
|00000100| 6f 20 74 68 65 20 77 6f | 72 6b 2c 20 64 6f 69 6e |o the wo|rk, doin|
|00000110| 67 20 74 68 65 0d 20 20 | 77 6f 72 6b 20 69 6e 2d |g the.  |work in-|
|00000120| 6c 69 6e 65 2c 20 61 6e | 64 20 63 61 6c 6c 69 6e |line, an|d callin|
|00000130| 67 20 74 68 65 20 52 4f | 4d 20 72 6f 75 74 69 6e |g the RO|M routin|
|00000140| 65 20 64 69 72 65 63 74 | 6c 79 20 77 69 74 68 6f |e direct|ly witho|
|00000150| 75 74 20 67 6f 69 6e 67 | 20 74 68 72 6f 75 67 68 |ut going| through|
|00000160| 0d 20 20 74 68 65 20 74 | 72 61 70 20 64 69 73 70 |.  the t|rap disp|
|00000170| 61 74 63 68 65 72 2e 20 | 20 54 69 6d 65 73 20 66 |atcher. | Times f|
|00000180| 6f 72 20 61 6c 6c 20 72 | 6f 75 74 69 6e 65 73 20 |or all r|outines |
|00000190| 61 72 65 20 77 72 69 74 | 74 65 6e 20 6f 6e 20 74 |are writ|ten on t|
|000001a0| 68 65 20 73 63 72 65 65 | 6e 20 69 6e 0d 20 20 74 |he scree|n in.  t|
|000001b0| 69 63 6b 73 20 66 6f 72 | 20 61 20 67 69 76 65 6e |icks for| a given|
|000001c0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 61 6c 6c 73 | number |of calls|
|000001d0| 2c 20 74 68 65 6e 20 74 | 68 65 20 6e 75 6d 62 65 |, then t|he numbe|
|000001e0| 72 20 6f 66 20 63 61 6c | 6c 73 20 69 73 20 76 61 |r of cal|ls is va|
|000001f0| 72 69 65 64 20 66 6f 72 | 0d 20 20 69 6d 70 72 6f |ried for|.  impro|
|00000200| 76 65 64 20 61 63 63 75 | 72 61 63 79 2e 0d 0d 20 |ved accu|racy... |
|00000210| 20 4d 69 6b 65 20 4d 6f | 72 74 6f 6e 2c 20 4e 6f | Mike Mo|rton, No|
|00000220| 76 65 6d 62 65 72 20 31 | 39 38 35 2e 20 4d 6f 64 |vember 1|985. Mod|
|00000230| 69 66 69 65 64 20 66 6f | 72 20 54 4d 4c 20 50 61 |ified fo|r TML Pa|
|00000240| 73 63 61 6c 2c 20 4a 75 | 6e 65 20 31 39 38 36 2e |scal, Ju|ne 1986.|
|00000250| 20 7d 0d 0d 70 72 6f 67 | 72 61 6d 20 74 72 61 70 | }..prog|ram trap|
|00000260| 74 69 6d 65 20 28 6f 75 | 74 70 75 74 29 3b 09 09 |time (ou|tput);..|
|00000270| 7b 20 22 28 6f 75 74 70 | 75 74 29 22 20 6c 65 74 |{ "(outp|ut)" let|
|00000280| 73 20 75 73 20 64 6f 20 | 77 72 69 74 65 6c 6e 73 |s us do |writelns|
|00000290| 20 7d 0d 0d 7b 24 49 20 | 4d 65 6d 54 79 70 65 73 | }..{$I |MemTypes|
|000002a0| 2e 69 70 61 73 20 20 7d | 0d 7b 24 49 20 51 75 69 |.ipas  }|.{$I Qui|
|000002b0| 63 6b 44 72 61 77 2e 69 | 70 61 73 20 7d 09 09 09 |ckDraw.i|pas }...|
|000002c0| 7b 20 77 65 20 75 73 65 | 20 51 75 69 63 6b 64 72 |{ we use| Quickdr|
|000002d0| 61 77 20 67 72 61 70 68 | 69 63 73 20 7d 0d 7b 24 |aw graph|ics }.{$|
|000002e0| 49 20 4f 53 49 6e 74 66 | 2e 69 70 61 73 20 7d 09 |I OSIntf|.ipas }.|
|000002f0| 09 09 7b 20 61 6e 64 20 | 4f 53 20 64 65 66 69 6e |..{ and |OS defin|
|00000300| 69 74 69 6f 6e 73 20 7d | 0d 7b 24 49 20 54 6f 6f |itions }|.{$I Too|
|00000310| 6c 49 6e 74 66 2e 69 70 | 61 73 20 7d 09 09 09 7b |lIntf.ip|as }...{|
|00000320| 20 61 6e 64 20 54 6f 6f | 6c 62 6f 78 20 63 61 6c | and Too|lbox cal|
|00000330| 6c 73 20 7d 0d 0d 76 61 | 72 09 09 09 09 20 20 20 |ls }..va|r....   |
|00000340| 20 20 20 20 20 7b 20 70 | 72 6f 67 72 61 6d 2d 77 |     { p|rogram-w|
|00000350| 69 64 65 20 76 61 72 69 | 61 62 6c 65 73 20 7d 0d |ide vari|ables }.|
|00000360| 20 20 62 61 73 65 74 69 | 6d 65 3a 20 6c 6f 6e 67 |  baseti|me: long|
|00000370| 69 6e 74 3b 09 09 20 20 | 20 20 20 20 20 20 7b 20 |int;..  |      { |
|00000380| 63 6f 6e 73 74 61 6e 74 | 20 6f 76 65 72 68 65 61 |constant| overhea|
|00000390| 64 20 66 6f 72 20 74 68 | 65 20 6c 6f 6f 70 20 7d |d for th|e loop }|
|000003a0| 0d 20 20 6c 6f 6f 70 73 | 3a 20 6c 6f 6e 67 69 6e |.  loops|: longin|
|000003b0| 74 3b 09 09 20 20 20 20 | 20 20 20 20 7b 20 6e 75 |t;..    |    { nu|
|000003c0| 6d 62 65 72 20 6f 66 20 | 69 74 65 72 61 74 69 6f |mber of |iteratio|
|000003d0| 6e 73 20 74 6f 20 74 69 | 6d 65 20 7d 0d 20 20 73 |ns to ti|me }.  s|
|000003e0| 74 61 72 74 3a 20 6c 6f | 6e 67 69 6e 74 3b 09 09 |tart: lo|ngint;..|
|000003f0| 20 20 20 20 20 20 20 20 | 7b 20 73 74 61 72 74 69 |        |{ starti|
|00000400| 6e 67 20 74 69 63 6b 63 | 6f 75 6e 74 20 66 6f 72 |ng tickc|ount for|
|00000410| 20 74 69 6d 69 6e 67 20 | 7d 0d 20 20 45 76 65 6e | timing |}.  Even|
|00000420| 74 3a 45 76 65 6e 74 52 | 65 63 6f 72 64 3b 0d 20 |t:EventR|ecord;. |
|00000430| 20 44 6f 49 74 3a 20 42 | 6f 6f 6c 65 61 6e 3b 0d | DoIt: B|oolean;.|
|00000440| 20 20 46 69 6e 69 73 68 | 65 64 3a 42 6f 6f 6c 65 |  Finish|ed:Boole|
|00000450| 61 6e 3b 0d 0d 7b 20 67 | 65 74 62 61 73 65 74 69 |an;..{ g|etbaseti|
|00000460| 6d 65 20 2d 2d 20 46 69 | 6e 64 20 74 68 65 20 74 |me -- Fi|nd the t|
|00000470| 69 6d 65 20 66 6f 72 20 | 74 68 65 20 6c 6f 6f 70 |ime for |the loop|
|00000480| 20 77 68 65 6e 20 6e 6f | 74 68 69 6e 67 20 69 73 | when no|thing is|
|00000490| 20 64 6f 6e 65 20 69 6e | 73 69 64 65 20 69 74 2e | done in|side it.|
|000004a0| 0d 20 20 54 68 69 73 20 | 74 65 6c 6c 73 20 75 73 |.  This |tells us|
|000004b0| 20 74 68 65 20 6f 76 65 | 72 68 65 61 64 20 77 68 | the ove|rhead wh|
|000004c0| 69 63 68 20 73 68 6f 75 | 6c 64 20 62 65 20 73 75 |ich shou|ld be su|
|000004d0| 62 74 72 61 63 74 65 64 | 20 66 72 6f 6d 20 6f 74 |btracted| from ot|
|000004e0| 68 65 72 20 74 69 6d 69 | 6e 67 73 2e 20 7d 0d 66 |her timi|ngs. }.f|
|000004f0| 75 6e 63 74 69 6f 6e 20 | 67 65 74 62 61 73 65 74 |unction |getbaset|
|00000500| 69 6d 65 3a 20 6c 6f 6e | 67 69 6e 74 3b 0d 76 61 |ime: lon|gint;.va|
|00000510| 72 20 63 6f 75 6e 74 3a | 20 6c 6f 6e 67 69 6e 74 |r count:| longint|
|00000520| 3b 09 09 20 20 20 20 20 | 20 20 20 7b 20 6c 6f 6f |;..     |   { loo|
|00000530| 70 20 63 6f 75 6e 74 65 | 72 20 7d 0d 62 65 67 69 |p counte|r }.begi|
|00000540| 6e 3b 0d 20 20 73 74 61 | 72 74 20 3a 3d 20 74 69 |n;.  sta|rt := ti|
|00000550| 63 6b 63 6f 75 6e 74 3b | 09 09 20 20 20 20 20 20 |ckcount;|..      |
|00000560| 20 20 7b 20 73 6e 61 70 | 73 68 6f 74 20 73 74 61 |  { snap|shot sta|
|00000570| 72 74 69 6e 67 20 74 69 | 6d 65 20 7d 0d 20 20 66 |rting ti|me }.  f|
|00000580| 6f 72 20 63 6f 75 6e 74 | 20 3a 3d 20 31 20 74 6f |or count| := 1 to|
|00000590| 20 6c 6f 6f 70 73 20 64 | 6f 09 20 20 20 20 20 20 | loops d|o.      |
|000005a0| 20 20 7b 20 6c 6f 6f 70 | 20 61 20 62 75 6e 63 68 |  { loop| a bunch|
|000005b0| 20 6f 66 20 74 69 6d 65 | 73 2e 2e 2e 20 7d 0d 20 | of time|s... }. |
|000005c0| 20 20 20 3b 09 09 09 09 | 20 20 20 20 20 20 20 20 |   ;....|        |
|000005d0| 7b 20 2e 2e 2e 64 6f 69 | 6e 67 20 6e 6f 74 68 69 |{ ...doi|ng nothi|
|000005e0| 6e 67 20 65 61 63 68 20 | 74 69 6d 65 20 7d 0d 20 |ng each |time }. |
|000005f0| 20 67 65 74 62 61 73 65 | 74 69 6d 65 20 3a 3d 20 | getbase|time := |
|00000600| 74 69 63 6b 63 6f 75 6e | 74 2d 73 74 61 72 74 3b |tickcoun|t-start;|
|00000610| 20 20 20 20 20 20 20 7b | 20 63 61 6c 63 75 6c 61 |       {| calcula|
|00000620| 74 65 20 65 6c 61 70 73 | 65 64 20 74 69 6d 65 20 |te elaps|ed time |
|00000630| 7d 0d 65 6e 64 3b 09 09 | 09 09 20 20 20 20 20 20 |}.end;..|..      |
|00000640| 20 20 7b 20 66 75 6e 63 | 74 69 6f 6e 20 22 67 65 |  { func|tion "ge|
|00000650| 74 62 61 73 65 74 69 6d | 65 22 20 7d 0d 0d 7b 20 |tbasetim|e" }..{ |
|00000660| 75 73 75 61 6c 74 69 6d | 65 20 2d 2d 20 46 69 6e |usualtim|e -- Fin|
|00000670| 64 20 74 68 65 20 74 69 | 6d 65 20 75 73 65 64 20 |d the ti|me used |
|00000680| 74 6f 20 63 61 6c 6c 20 | 74 68 65 20 52 4f 4d 20 |to call |the ROM |
|00000690| 74 68 65 20 75 73 75 61 | 6c 20 77 61 79 2e 20 20 |the usua|l way.  |
|000006a0| 54 68 69 73 2c 20 61 6e | 64 0d 20 20 61 6c 6c 20 |This, an|d.  all |
|000006b0| 74 69 6d 69 6e 67 20 72 | 6f 75 74 69 6e 65 73 2c |timing r|outines,|
|000006c0| 20 73 68 6f 75 6c 64 20 | 6c 6f 6f 6b 20 61 73 20 | should |look as |
|000006d0| 6d 75 63 68 20 61 73 20 | 70 6f 73 73 69 62 6c 65 |much as |possible|
|000006e0| 20 6c 69 6b 65 20 22 67 | 65 74 62 61 73 65 74 69 | like "g|etbaseti|
|000006f0| 6d 65 22 2e 20 7d 0d 66 | 75 6e 63 74 69 6f 6e 20 |me". }.f|unction |
|00000700| 75 73 75 61 6c 74 69 6d | 65 3a 20 6c 6f 6e 67 69 |usualtim|e: longi|
|00000710| 6e 74 3b 0d 76 61 72 0d | 20 20 63 6f 75 6e 74 3a |nt;.var.|  count:|
|00000720| 20 6c 6f 6e 67 69 6e 74 | 3b 09 09 20 20 20 20 20 | longint|;..     |
|00000730| 20 20 20 7b 20 6c 6f 6f | 70 20 63 6f 75 6e 74 65 |   { loo|p counte|
|00000740| 72 20 7d 0d 20 20 70 74 | 3a 20 70 6f 69 6e 74 3b |r }.  pt|: point;|
|00000750| 09 09 09 20 20 20 20 20 | 20 20 20 7b 20 70 6f 69 |...     |   { poi|
|00000760| 6e 74 20 74 6f 20 61 73 | 73 69 67 6e 20 74 6f 20 |nt to as|sign to |
|00000770| 7d 0d 20 20 78 2c 20 79 | 3a 20 69 6e 74 65 67 65 |}.  x, y|: intege|
|00000780| 72 3b 09 09 20 20 20 20 | 20 20 20 20 7b 20 63 6f |r;..    |    { co|
|00000790| 6f 72 64 69 6e 61 74 65 | 73 20 74 6f 20 61 73 73 |ordinate|s to ass|
|000007a0| 69 67 6e 20 74 6f 20 74 | 68 65 20 70 6f 69 6e 74 |ign to t|he point|
|000007b0| 20 7d 0d 62 65 67 69 6e | 3b 0d 20 20 73 74 61 72 | }.begin|;.  star|
|000007c0| 74 20 3a 3d 20 74 69 63 | 6b 63 6f 75 6e 74 3b 09 |t := tic|kcount;.|
|000007d0| 09 20 20 20 20 20 20 20 | 20 7b 20 73 6e 61 70 73 |.       | { snaps|
|000007e0| 68 6f 74 20 73 74 61 72 | 74 69 6e 67 20 74 69 6d |hot star|ting tim|
|000007f0| 65 20 7d 0d 20 20 66 6f | 72 20 63 6f 75 6e 74 20 |e }.  fo|r count |
|00000800| 3a 3d 20 31 20 74 6f 20 | 6c 6f 6f 70 73 20 64 6f |:= 1 to |loops do|
|00000810| 09 20 20 20 20 20 20 20 | 20 7b 20 74 68 69 73 20 |.       | { this |
|00000820| 74 69 6d 65 2c 20 69 6e | 73 69 64 65 20 74 68 65 |time, in|side the|
|00000830| 20 6c 6f 6f 70 2e 2e 2e | 20 7d 0d 20 20 20 20 73 | loop...| }.    s|
|00000840| 65 74 70 74 20 28 70 74 | 2c 20 78 2c 20 79 29 3b |etpt (pt|, x, y);|
|00000850| 09 09 20 20 20 20 20 20 | 20 20 7b 20 2e 2e 2e 77 |..      |  { ...w|
|00000860| 65 20 64 6f 20 74 68 65 | 20 52 4f 4d 20 63 61 6c |e do the| ROM cal|
|00000870| 6c 20 7d 0d 20 20 75 73 | 75 61 6c 74 69 6d 65 20 |l }.  us|ualtime |
|00000880| 3a 3d 20 74 69 63 6b 63 | 6f 75 6e 74 2d 73 74 61 |:= tickc|ount-sta|
|00000890| 72 74 3b 09 20 20 20 20 | 20 20 20 20 7b 20 63 61 |rt;.    |    { ca|
|000008a0| 6c 63 75 6c 61 74 65 20 | 65 6c 61 70 73 65 64 20 |lculate |elapsed |
|000008b0| 74 69 6d 65 20 7d 0d 65 | 6e 64 3b 09 09 09 09 20 |time }.e|nd;.... |
|000008c0| 20 20 20 20 20 20 20 7b | 20 66 75 6e 63 74 69 6f |       {| functio|
|000008d0| 6e 20 22 75 73 75 61 6c | 74 69 6d 65 22 20 7d 0d |n "usual|time" }.|
|000008e0| 0d 0d 7b 20 73 65 74 6d | 79 70 74 20 2d 2d 20 54 |..{ setm|ypt -- T|
|000008f0| 68 69 73 20 69 73 6e 27 | 74 20 61 20 74 69 6d 69 |his isn'|t a timi|
|00000900| 6e 67 20 66 75 6e 63 74 | 69 6f 6e 20 6c 69 6b 65 |ng funct|ion like|
|00000910| 20 74 68 65 20 6f 74 68 | 65 72 73 3b 20 69 74 27 | the oth|ers; it'|
|00000920| 73 20 61 20 72 65 70 6c | 61 63 65 6d 65 6e 74 0d |s a repl|acement.|
|00000930| 20 20 66 6f 72 20 74 68 | 65 20 52 4f 4d 27 73 20 |  for th|e ROM's |
|00000940| 22 73 65 74 70 74 22 20 | 72 6f 75 74 69 6e 65 2c |"setpt" |routine,|
|00000950| 20 74 6f 20 73 65 65 20 | 68 6f 77 20 66 61 73 74 | to see |how fast|
|00000960| 20 77 65 20 63 61 6e 20 | 64 6f 20 69 74 20 6f 75 | we can |do it ou|
|00000970| 72 73 65 6c 76 65 73 2e | 20 7d 0d 70 72 6f 63 65 |rselves.| }.proce|
|00000980| 64 75 72 65 20 73 65 74 | 6d 79 70 74 20 28 56 41 |dure set|mypt (VA|
|00000990| 52 20 70 74 3a 20 70 6f | 69 6e 74 3b 20 78 2c 20 |R pt: po|int; x, |
|000009a0| 79 3a 20 69 6e 74 65 67 | 65 72 29 3b 0d 62 65 67 |y: integ|er);.beg|
|000009b0| 69 6e 3b 0d 20 20 70 74 | 2e 68 20 3a 3d 20 78 3b |in;.  pt|.h := x;|
|000009c0| 20 70 74 2e 76 20 3a 3d | 20 79 3b 09 09 20 20 20 | pt.v :=| y;..   |
|000009d0| 20 20 20 20 20 7b 20 61 | 73 73 69 67 6e 20 74 6f |     { a|ssign to|
|000009e0| 20 74 68 65 20 63 6f 6f | 72 64 69 6e 61 74 65 73 | the coo|rdinates|
|000009f0| 3b 20 65 61 73 79 21 20 | 7d 0d 65 6e 64 3b 09 09 |; easy! |}.end;..|
|00000a00| 09 09 20 20 20 20 20 20 | 20 20 7b 20 70 72 6f 63 |..      |  { proc|
|00000a10| 65 64 75 72 65 20 22 73 | 65 74 6d 79 70 74 22 20 |edure "s|etmypt" |
|00000a20| 7d 0d 0d 7b 20 6d 79 6f | 77 6e 74 69 6d 65 20 2d |}..{ myo|wntime -|
|00000a30| 2d 20 54 69 6d 65 20 74 | 68 65 20 61 73 73 69 67 |- Time t|he assig|
|00000a40| 6e 6d 65 6e 74 20 75 73 | 69 6e 67 20 6f 75 72 20 |nment us|ing our |
|00000a50| 6f 77 6e 20 70 72 6f 63 | 65 64 75 72 65 2e 20 7d |own proc|edure. }|
|00000a60| 0d 66 75 6e 63 74 69 6f | 6e 20 6d 79 6f 77 6e 74 |.functio|n myownt|
|00000a70| 69 6d 65 3a 20 6c 6f 6e | 67 69 6e 74 3b 0d 76 61 |ime: lon|gint;.va|
|00000a80| 72 0d 20 20 63 6f 75 6e | 74 3a 20 6c 6f 6e 67 69 |r.  coun|t: longi|
|00000a90| 6e 74 3b 09 09 20 20 20 | 20 20 20 20 20 7b 20 6c |nt;..   |     { l|
|00000aa0| 6f 6f 70 20 63 6f 75 6e | 74 65 72 20 7d 0d 20 20 |oop coun|ter }.  |
|00000ab0| 70 74 3a 20 70 6f 69 6e | 74 3b 09 09 09 20 20 20 |pt: poin|t;...   |
|00000ac0| 20 20 20 20 20 7b 20 70 | 6f 69 6e 74 20 74 6f 20 |     { p|oint to |
|00000ad0| 61 73 73 69 67 6e 20 74 | 6f 20 7d 0d 20 20 78 2c |assign t|o }.  x,|
|00000ae0| 20 79 3a 20 69 6e 74 65 | 67 65 72 3b 09 09 20 20 | y: inte|ger;..  |
|00000af0| 20 20 20 20 20 20 7b 20 | 63 6f 6f 72 64 69 6e 61 |      { |coordina|
|00000b00| 74 65 73 20 74 6f 20 61 | 73 73 69 67 6e 20 74 6f |tes to a|ssign to|
|00000b10| 20 70 6f 69 6e 74 20 7d | 0d 62 65 67 69 6e 3b 0d | point }|.begin;.|
|00000b20| 20 20 73 74 61 72 74 20 | 3a 3d 20 74 69 63 6b 63 |  start |:= tickc|
|00000b30| 6f 75 6e 74 3b 09 09 20 | 20 20 20 20 20 20 20 7b |ount;.. |       {|
|00000b40| 20 73 6e 61 70 73 68 6f | 74 20 73 74 61 72 74 69 | snapsho|t starti|
|00000b50| 6e 67 20 74 69 6d 65 20 | 7d 0d 20 20 66 6f 72 20 |ng time |}.  for |
|00000b60| 63 6f 75 6e 74 20 3a 3d | 20 31 20 74 6f 20 6c 6f |count :=| 1 to lo|
|00000b70| 6f 70 73 20 64 6f 09 20 | 20 20 20 20 20 20 20 7b |ops do. |       {|
|00000b80| 20 74 68 69 73 20 74 69 | 6d 65 2c 20 69 6e 73 69 | this ti|me, insi|
|00000b90| 64 65 20 74 68 65 20 6c | 6f 6f 70 2e 2e 2e 20 7d |de the l|oop... }|
|00000ba0| 0d 20 20 20 20 73 65 74 | 6d 79 70 74 20 28 70 74 |.    set|mypt (pt|
|00000bb0| 2c 20 78 2c 20 79 29 3b | 09 09 20 20 20 20 20 20 |, x, y);|..      |
|00000bc0| 20 20 7b 20 2e 2e 2e 77 | 65 20 63 61 6c 6c 20 6f |  { ...w|e call o|
|00000bd0| 75 72 20 6f 77 6e 20 72 | 6f 75 74 69 6e 65 20 7d |ur own r|outine }|
|00000be0| 0d 20 20 6d 79 6f 77 6e | 74 69 6d 65 20 3a 3d 20 |.  myown|time := |
|00000bf0| 74 69 63 6b 63 6f 75 6e | 74 2d 73 74 61 72 74 3b |tickcoun|t-start;|
|00000c00| 09 20 20 20 20 20 20 20 | 20 7b 20 63 61 6c 63 75 |.       | { calcu|
|00000c10| 6c 61 74 65 20 65 6c 61 | 70 73 65 64 20 74 69 6d |late ela|psed tim|
|00000c20| 65 20 7d 0d 65 6e 64 3b | 09 09 09 09 20 20 20 20 |e }.end;|....    |
|00000c30| 20 20 20 20 7b 20 66 75 | 6e 63 74 69 6f 6e 20 6d |    { fu|nction m|
|00000c40| 79 6f 77 6e 74 69 6d 65 | 20 7d 0d 0d 7b 20 69 6e |yowntime| }..{ in|
|00000c50| 6c 69 6e 74 69 6d 65 20 | 2d 2d 20 54 68 65 20 6d |lintime |-- The m|
|00000c60| 6f 73 74 20 73 74 72 61 | 69 67 68 74 66 6f 72 77 |ost stra|ightforw|
|00000c70| 61 72 64 20 77 61 79 3a | 20 77 65 20 64 6f 20 74 |ard way:| we do t|
|00000c80| 68 65 20 61 73 73 69 67 | 6e 6d 65 6e 74 20 69 6e |he assig|nment in|
|00000c90| 20 74 68 65 20 6c 6f 6f | 70 2e 20 7d 0d 66 75 6e | the loo|p. }.fun|
|00000ca0| 63 74 69 6f 6e 20 69 6e | 6c 69 6e 74 69 6d 65 3a |ction in|lintime:|
|00000cb0| 20 6c 6f 6e 67 69 6e 74 | 3b 0d 76 61 72 0d 20 20 | longint|;.var.  |
|00000cc0| 63 6f 75 6e 74 3a 20 6c | 6f 6e 67 69 6e 74 3b 09 |count: l|ongint;.|
|00000cd0| 09 20 20 20 20 20 20 20 | 20 7b 20 6c 6f 6f 70 20 |.       | { loop |
|00000ce0| 63 6f 75 6e 74 65 72 20 | 7d 0d 20 20 70 74 3a 20 |counter |}.  pt: |
|00000cf0| 70 6f 69 6e 74 3b 09 09 | 09 20 20 20 20 20 20 20 |point;..|.       |
|00000d00| 20 7b 20 70 6f 69 6e 74 | 20 74 6f 20 61 73 73 69 | { point| to assi|
|00000d10| 67 6e 20 74 6f 20 7d 0d | 20 20 78 2c 20 79 3a 20 |gn to }.|  x, y: |
|00000d20| 69 6e 74 65 67 65 72 3b | 09 09 20 20 20 20 20 20 |integer;|..      |
|00000d30| 20 20 7b 20 63 6f 6f 72 | 64 69 6e 61 74 65 73 20 |  { coor|dinates |
|00000d40| 74 6f 20 61 73 73 69 67 | 6e 20 74 6f 20 70 6f 69 |to assig|n to poi|
|00000d50| 6e 74 20 7d 0d 62 65 67 | 69 6e 3b 0d 20 20 73 74 |nt }.beg|in;.  st|
|00000d60| 61 72 74 20 3a 3d 20 74 | 69 63 6b 63 6f 75 6e 74 |art := t|ickcount|
|00000d70| 3b 09 09 20 20 20 20 20 | 20 20 20 7b 20 73 6e 61 |;..     |   { sna|
|00000d80| 70 73 68 6f 74 20 73 74 | 61 72 74 69 6e 67 20 74 |pshot st|arting t|
|00000d90| 69 6d 65 20 7d 0d 20 20 | 66 6f 72 20 63 6f 75 6e |ime }.  |for coun|
|00000da0| 74 20 3a 3d 20 31 20 74 | 6f 20 6c 6f 6f 70 73 20 |t := 1 t|o loops |
|00000db0| 64 6f 09 20 20 20 20 20 | 20 20 20 7b 20 74 68 69 |do.     |   { thi|
|00000dc0| 73 20 74 69 6d 65 2c 20 | 69 6e 73 69 64 65 20 74 |s time, |inside t|
|00000dd0| 68 65 20 6c 6f 6f 70 2e | 2e 2e 20 7d 0d 20 20 20 |he loop.|.. }.   |
|00000de0| 20 62 65 67 69 6e 3b 20 | 70 74 2e 68 20 3a 3d 20 | begin; |pt.h := |
|00000df0| 78 3b 20 70 74 2e 76 20 | 3a 3d 20 79 3b 20 65 6e |x; pt.v |:= y; en|
|00000e00| 64 3b 20 20 20 7b 20 2e | 2e 2e 77 65 20 64 6f 20 |d;   { .|..we do |
|00000e10| 74 68 65 20 61 73 73 69 | 67 6e 6d 65 6e 74 20 72 |the assi|gnment r|
|00000e20| 69 67 68 74 20 68 65 72 | 65 20 7d 0d 20 20 69 6e |ight her|e }.  in|
|00000e30| 6c 69 6e 74 69 6d 65 20 | 3a 3d 20 74 69 63 6b 63 |lintime |:= tickc|
|00000e40| 6f 75 6e 74 2d 73 74 61 | 72 74 3b 09 20 20 20 20 |ount-sta|rt;.    |
|00000e50| 20 20 20 20 7b 20 63 61 | 6c 63 75 6c 61 74 65 20 |    { ca|lculate |
|00000e60| 65 6c 61 70 73 65 64 20 | 74 69 6d 65 20 7d 0d 65 |elapsed |time }.e|
|00000e70| 6e 64 3b 09 09 09 09 20 | 20 20 20 20 20 20 20 7b |nd;.... |       {|
|00000e80| 20 66 75 6e 63 74 69 6f | 6e 20 69 6e 6c 69 6e 74 | functio|n inlint|
|00000e90| 69 6d 65 20 7d 0d 0d 7b | 20 73 65 74 70 74 78 20 |ime }..{| setptx |
|00000ea0| 2d 2d 20 54 68 69 73 20 | 69 73 20 61 6e 6f 74 68 |-- This |is anoth|
|00000eb0| 65 72 20 72 65 70 6c 61 | 63 65 6d 65 6e 74 20 66 |er repla|cement f|
|00000ec0| 6f 72 20 22 73 65 74 70 | 74 22 2e 20 20 49 74 20 |or "setp|t".  It |
|00000ed0| 74 61 6b 65 73 20 61 6e | 20 65 78 74 72 61 0d 20 |takes an| extra. |
|00000ee0| 20 70 61 72 61 6d 65 74 | 65 72 2c 20 74 68 65 20 | paramet|er, the |
|00000ef0| 70 72 65 76 69 6f 75 73 | 6c 79 20 64 65 74 65 72 |previous|ly deter|
|00000f00| 6d 69 6e 65 64 20 61 64 | 64 72 65 73 73 20 6f 66 |mined ad|dress of|
|00000f10| 20 22 73 65 74 70 74 22 | 2c 20 61 6e 64 20 63 61 | "setpt"|, and ca|
|00000f20| 6c 6c 73 20 74 68 61 74 | 0d 20 20 61 64 64 72 65 |lls that|.  addre|
|00000f30| 73 73 2c 20 6c 65 61 76 | 69 6e 67 20 74 68 65 20 |ss, leav|ing the |
|00000f40| 6f 74 68 65 72 20 70 61 | 72 61 6d 65 74 65 72 73 |other pa|rameters|
|00000f50| 20 66 6f 72 20 22 73 65 | 74 70 74 22 2e 20 20 55 | for "se|tpt".  U|
|00000f60| 6e 66 6f 72 74 75 6e 61 | 74 65 6c 79 2c 20 54 4d |nfortuna|tely, TM|
|00000f70| 4c 0d 20 20 50 61 73 63 | 61 6c 20 64 6f 65 73 6e |L.  Pasc|al doesn|
|00000f80| 27 74 20 6d 69 6d 69 63 | 20 4c 69 73 61 20 50 61 |'t mimic| Lisa Pa|
|00000f90| 73 63 61 6c 20 63 6c 6f | 73 65 6c 79 20 65 6e 6f |scal clo|sely eno|
|00000fa0| 75 67 68 20 74 6f 20 61 | 6c 6c 6f 77 20 75 73 20 |ugh to a|llow us |
|00000fb0| 74 6f 20 67 65 6e 65 72 | 61 74 65 0d 20 20 6d 6f |to gener|ate.  mo|
|00000fc0| 72 65 20 74 68 61 6e 20 | 6f 6e 65 20 77 6f 72 64 |re than |one word|
|00000fd0| 20 6f 66 20 63 6f 64 65 | 20 69 6e 20 61 20 73 69 | of code| in a si|
|00000fe0| 6e 67 6c 65 20 64 65 63 | 6c 61 72 61 74 69 6f 6e |ngle dec|laration|
|00000ff0| 2e 20 20 53 6f 20 77 65 | 20 68 61 76 65 20 74 77 |.  So we| have tw|
|00001000| 6f 0d 20 20 70 72 6f 63 | 65 64 75 72 65 73 20 2d |o.  proc|edures -|
|00001010| 2d 20 74 68 65 73 65 20 | 4d 55 53 54 20 61 6c 77 |- these |MUST alw|
|00001020| 61 79 73 20 62 65 20 75 | 73 65 64 20 74 6f 67 65 |ays be u|sed toge|
|00001030| 74 68 65 72 21 20 20 54 | 4d 4c 20 73 61 79 73 20 |ther!  T|ML says |
|00001040| 74 68 65 69 72 20 32 2e | 30 0d 20 20 72 65 6c 65 |their 2.|0.  rele|
|00001050| 61 73 65 20 6f 66 20 74 | 68 65 20 63 6f 6d 70 69 |ase of t|he compi|
|00001060| 6c 65 72 20 77 69 6c 6c | 20 62 65 20 4c 69 73 61 |ler will| be Lisa|
|00001070| 2d 63 6f 6d 70 61 74 69 | 62 6c 65 20 6f 6e 20 74 |-compati|ble on t|
|00001080| 68 69 73 20 73 63 6f 72 | 65 2c 20 73 6f 20 74 68 |his scor|e, so th|
|00001090| 69 73 0d 20 20 75 6e 73 | 69 67 68 74 6c 79 20 77 |is.  uns|ightly w|
|000010a0| 6f 72 6b 61 72 6f 75 6e | 64 20 77 6f 6e 27 74 20 |orkaroun|d won't |
|000010b0| 62 65 20 6e 65 65 64 65 | 64 20 61 6e 79 20 6d 6f |be neede|d any mo|
|000010c0| 72 65 2e 20 7d 0d 70 72 | 6f 63 65 64 75 72 65 20 |re. }.pr|ocedure |
|000010d0| 73 65 74 70 74 78 31 20 | 28 76 61 72 20 70 74 3a |setptx1 |(var pt:|
|000010e0| 20 70 6f 69 6e 74 3b 20 | 68 2c 20 76 3a 20 69 6e | point; |h, v: in|
|000010f0| 74 65 67 65 72 3b 20 61 | 64 64 72 3a 20 6c 6f 6e |teger; a|ddr: lon|
|00001100| 67 69 6e 74 29 3b 0d 20 | 20 20 20 20 20 49 4e 4c |gint);. |     INL|
|00001110| 49 4e 45 20 20 20 24 32 | 30 35 46 3b 09 20 7b 20 |INE   $2|05F;. { |
|00001120| 4d 4f 56 45 2e 4c 20 28 | 41 37 29 2b 2c 41 30 20 |MOVE.L (|A7)+,A0 |
|00001130| 20 3b 20 70 6f 70 20 72 | 6f 75 74 69 6e 65 27 73 | ; pop r|outine's|
|00001140| 20 61 64 64 72 65 73 73 | 20 69 6e 74 6f 20 41 30 | address| into A0|
|00001150| c9 20 7d 0d 70 72 6f 63 | 65 64 75 72 65 20 73 65 |. }.proc|edure se|
|00001160| 74 70 74 78 32 3b 0d 20 | 20 20 20 20 20 49 4e 4c |tptx2;. |     INL|
|00001170| 49 4e 45 20 20 20 24 34 | 45 39 30 3b 09 20 7b 20 |INE   $4|E90;. { |
|00001180| 4a 53 52 09 20 20 28 41 | 30 29 09 20 20 20 20 3b |JSR.  (A|0).    ;|
|00001190| 20 c9 61 6e 64 20 63 61 | 6c 6c 20 74 68 61 74 20 | .and ca|ll that |
|000011a0| 61 64 64 72 65 73 73 20 | 20 20 7d 0d 0d 7b 20 67 |address |  }..{ g|
|000011b0| 65 74 74 72 74 69 6d 65 | 20 2d 2d 20 54 68 65 20 |ettrtime| -- The |
|000011c0| 6c 61 73 74 20 61 6e 64 | 20 6d 6f 73 74 20 63 6f |last and| most co|
|000011d0| 6d 70 6c 69 63 61 74 65 | 64 20 77 61 79 20 6f 66 |mplicate|d way of|
|000011e0| 20 63 61 6c 6c 69 6e 67 | 20 74 68 65 20 72 6f 75 | calling| the rou|
|000011f0| 74 69 6e 65 2e 20 20 57 | 65 0d 20 20 75 73 65 20 |tine.  W|e.  use |
|00001200| 74 68 65 20 74 72 61 70 | 20 61 64 64 72 65 73 73 |the trap| address|
|00001210| 20 74 6f 20 63 61 6c 6c | 20 69 74 20 64 69 72 65 | to call| it dire|
|00001220| 63 74 6c 79 2e 20 7d 0d | 66 75 6e 63 74 69 6f 6e |ctly. }.|function|
|00001230| 20 67 65 74 74 72 74 69 | 6d 65 3a 20 6c 6f 6e 67 | gettrti|me: long|
|00001240| 69 6e 74 3b 0d 76 61 72 | 0d 20 20 61 64 64 72 3a |int;.var|.  addr:|
|00001250| 20 6c 6f 6e 67 69 6e 74 | 3b 09 09 20 20 20 20 20 | longint|;..     |
|00001260| 20 20 20 7b 20 61 63 74 | 75 61 6c 20 61 64 64 72 |   { act|ual addr|
|00001270| 65 73 73 20 6f 66 20 22 | 73 65 74 70 74 22 20 7d |ess of "|setpt" }|
|00001280| 0d 20 20 63 6f 75 6e 74 | 3a 20 6c 6f 6e 67 69 6e |.  count|: longin|
|00001290| 74 3b 09 09 20 20 20 20 | 20 20 20 20 7b 20 6c 6f |t;..    |    { lo|
|000012a0| 6f 70 20 63 6f 75 6e 74 | 65 72 20 7d 0d 20 20 70 |op count|er }.  p|
|000012b0| 74 3a 20 70 6f 69 6e 74 | 3b 09 09 09 20 20 20 20 |t: point|;...    |
|000012c0| 20 20 20 20 7b 20 70 6f | 69 6e 74 20 74 6f 20 61 |    { po|int to a|
|000012d0| 73 73 69 67 6e 20 74 6f | 20 7d 0d 20 20 78 2c 20 |ssign to| }.  x, |
|000012e0| 79 3a 20 69 6e 74 65 67 | 65 72 3b 09 09 20 20 20 |y: integ|er;..   |
|000012f0| 20 20 20 20 20 7b 20 63 | 6f 6f 72 64 69 6e 61 74 |     { c|oordinat|
|00001300| 65 73 20 74 6f 20 61 73 | 73 69 67 6e 20 74 6f 20 |es to as|sign to |
|00001310| 70 6f 69 6e 74 20 7d 0d | 62 65 67 69 6e 3b 0d 20 |point }.|begin;. |
|00001320| 20 61 64 64 72 20 3a 3d | 20 67 65 74 74 72 61 70 | addr :=| gettrap|
|00001330| 61 64 64 72 65 73 73 20 | 28 24 61 38 38 30 29 3b |address |($a880);|
|00001340| 20 20 20 20 20 20 20 7b | 20 66 69 6e 64 20 77 68 |       {| find wh|
|00001350| 65 72 65 20 74 68 65 20 | 72 6f 75 74 69 6e 65 20 |ere the |routine |
|00001360| 6c 69 76 65 73 20 7d 0d | 20 20 73 74 61 72 74 20 |lives }.|  start |
|00001370| 3a 3d 20 74 69 63 6b 63 | 6f 75 6e 74 3b 09 09 20 |:= tickc|ount;.. |
|00001380| 20 20 20 20 20 20 20 7b | 20 73 6e 61 70 73 68 6f |       {| snapsho|
|00001390| 74 20 73 74 61 72 74 69 | 6e 67 20 74 69 6d 65 20 |t starti|ng time |
|000013a0| 7d 0d 20 20 66 6f 72 20 | 63 6f 75 6e 74 20 3a 3d |}.  for |count :=|
|000013b0| 20 31 20 74 6f 20 6c 6f | 6f 70 73 20 64 6f 20 62 | 1 to lo|ops do b|
|000013c0| 65 67 69 6e 09 7b 20 74 | 68 69 73 20 74 69 6d 65 |egin.{ t|his time|
|000013d0| 2c 20 69 6e 73 69 64 65 | 20 74 68 65 20 6c 6f 6f |, inside| the loo|
|000013e0| 70 2e 2e 2e 20 7d 0d 20 | 20 20 20 73 65 74 70 74 |p... }. |   setpt|
|000013f0| 78 31 20 28 70 74 2c 20 | 78 2c 20 79 2c 20 61 64 |x1 (pt, |x, y, ad|
|00001400| 64 72 29 3b 09 20 20 20 | 20 20 20 20 20 7b 20 2e |dr);.   |     { .|
|00001410| 2e 2e 77 65 20 63 61 6c | 6c 20 6f 6e 20 52 4f 4d |..we cal|l on ROM|
|00001420| 2c 20 62 75 74 20 64 69 | 66 66 65 72 65 6e 74 6c |, but di|fferentl|
|00001430| 79 20 7d 0d 20 20 20 20 | 73 65 74 70 74 78 32 3b |y }.    |setptx2;|
|00001440| 09 09 09 09 7b 20 28 6b | 6c 75 64 67 65 20 74 6f |....{ (k|ludge to|
|00001450| 20 73 6e 65 61 6b 20 69 | 6e 20 32 6e 64 20 69 6e | sneak i|n 2nd in|
|00001460| 73 74 72 75 63 74 69 6f | 6e 20 7d 0d 20 20 65 6e |structio|n }.  en|
|00001470| 64 3b 0d 20 20 67 65 74 | 74 72 74 69 6d 65 20 3a |d;.  get|trtime :|
|00001480| 3d 20 74 69 63 6b 63 6f | 75 6e 74 2d 73 74 61 72 |= tickco|unt-star|
|00001490| 74 3b 09 20 20 20 20 20 | 20 20 20 7b 20 63 61 6c |t;.     |   { cal|
|000014a0| 63 75 6c 61 74 65 20 65 | 6c 61 70 73 65 64 20 74 |culate e|lapsed t|
|000014b0| 69 6d 65 20 7d 0d 65 6e | 64 3b 09 09 09 09 20 20 |ime }.en|d;....  |
|000014c0| 20 20 20 20 20 20 7b 20 | 66 75 6e 63 74 69 6f 6e |      { |function|
|000014d0| 20 67 65 74 74 72 74 69 | 6d 65 20 7d 0d 0d 62 65 | gettrti|me }..be|
|000014e0| 67 69 6e 3b 09 09 09 09 | 20 20 20 20 20 20 20 20 |gin;....|        |
|000014f0| 7b 20 2a 2a 2a 20 6d 61 | 69 6e 20 70 72 6f 67 72 |{ *** ma|in progr|
|00001500| 61 6d 20 2a 2a 2a 20 7d | 0d 20 20 77 72 69 74 65 |am *** }|.  write|
|00001510| 6c 6e 20 28 27 49 66 20 | 6c 61 75 6e 63 68 69 6e |ln ('If |launchin|
|00001520| 67 20 66 72 6f 6d 20 61 | 20 66 6c 6f 70 70 79 2c |g from a| floppy,|
|00001530| 20 77 61 69 74 20 66 6f | 72 20 69 74 20 74 6f 20 | wait fo|r it to |
|00001540| 73 74 6f 70 20 61 6e 64 | 20 63 6c 69 63 6b 20 74 |stop and| click t|
|00001550| 6f 20 62 65 67 69 6e 2e | 2e 2e 27 29 3b 0d 20 20 |o begin.|..');.  |
|00001560| 77 68 69 6c 65 20 6e 6f | 74 20 62 75 74 74 6f 6e |while no|t button|
|00001570| 20 64 6f 3b 20 77 68 69 | 6c 65 20 62 75 74 74 6f | do; whi|le butto|
|00001580| 6e 20 64 6f 3b 20 7b 20 | 63 68 65 61 70 20 77 61 |n do; { |cheap wa|
|00001590| 79 20 74 6f 20 77 61 69 | 74 20 66 6f 72 20 61 20 |y to wai|t for a |
|000015a0| 63 6c 69 63 6b 20 7d 0d | 0d 20 20 6c 6f 6f 70 73 |click }.|.  loops|
|000015b0| 20 3a 3d 20 31 30 30 30 | 30 3b 09 09 20 20 20 20 | := 1000|0;..    |
|000015c0| 20 20 20 20 7b 20 73 74 | 61 72 74 20 77 69 74 68 |    { st|art with|
|000015d0| 20 61 20 73 6d 61 6c 6c | 20 6c 6f 6f 70 20 73 69 | a small| loop si|
|000015e0| 7a 65 2e 2e 2e 20 7d 0d | 20 20 77 68 69 6c 65 20 |ze... }.|  while |
|000015f0| 6c 6f 6f 70 73 20 3c 3d | 20 31 30 30 30 30 30 20 |loops <=| 100000 |
|00001600| 64 6f 09 20 20 20 20 20 | 20 20 20 7b 20 2e 2e 2e |do.     |   { ...|
|00001610| 61 6e 64 20 67 6f 20 74 | 68 72 6f 75 67 68 20 73 |and go t|hrough s|
|00001620| 65 76 65 72 61 6c 20 6c | 6f 6f 70 20 73 69 7a 65 |everal l|oop size|
|00001630| 73 20 7d 0d 20 20 62 65 | 67 69 6e 3b 0d 20 20 20 |s }.  be|gin;.   |
|00001640| 20 62 61 73 65 74 69 6d | 65 20 3a 3d 20 67 65 74 | basetim|e := get|
|00001650| 62 61 73 65 74 69 6d 65 | 3b 09 20 20 20 20 20 20 |basetime|;.      |
|00001660| 20 20 7b 20 66 69 6e 64 | 20 63 6f 6e 73 74 61 6e |  { find| constan|
|00001670| 74 20 6f 76 65 72 68 65 | 61 64 20 66 6f 72 20 74 |t overhe|ad for t|
|00001680| 68 65 20 6c 6f 6f 70 20 | 7d 0d 0d 20 20 20 20 77 |he loop |}..    w|
|00001690| 72 69 74 65 6c 6e 20 28 | 27 6e 75 6d 62 65 72 20 |riteln (|'number |
|000016a0| 6f 66 20 6c 6f 6f 70 73 | 3a 27 2c 20 6c 6f 6f 70 |of loops|:', loop|
|000016b0| 73 2c 20 27 3b 20 62 61 | 73 65 20 74 69 6d 65 20 |s, '; ba|se time |
|000016c0| 69 73 3a 27 2c 20 62 61 | 73 65 74 69 6d 65 29 3b |is:', ba|setime);|
|000016d0| 0d 20 20 20 20 77 72 69 | 74 65 6c 6e 20 28 27 74 |.    wri|teln ('t|
|000016e0| 69 6d 65 20 66 6f 72 20 | 75 73 75 61 6c 20 6d 65 |ime for |usual me|
|000016f0| 74 68 6f 64 20 69 73 2e | 2e 2e 2e 2e 2e 2e 2e 2e |thod is.|........|
|00001700| 2e 3a 20 27 2c 20 75 73 | 75 61 6c 74 69 6d 65 20 |.: ', us|ualtime |
|00001710| 2d 20 62 61 73 65 74 69 | 6d 65 29 3b 0d 20 20 20 |- baseti|me);.   |
|00001720| 20 77 72 69 74 65 6c 6e | 20 28 27 74 69 6d 65 20 | writeln| ('time |
|00001730| 66 6f 72 20 63 61 6c 6c | 69 6e 67 20 6d 79 20 6f |for call|ing my o|
|00001740| 77 6e 20 72 6f 75 74 69 | 6e 65 20 69 73 3a 20 27 |wn routi|ne is: '|
|00001750| 2c 20 6d 79 6f 77 6e 74 | 69 6d 65 20 2d 20 62 61 |, myownt|ime - ba|
|00001760| 73 65 74 69 6d 65 29 3b | 0d 20 20 20 20 77 72 69 |setime);|.    wri|
|00001770| 74 65 6c 6e 20 28 27 74 | 69 6d 65 20 66 6f 72 20 |teln ('t|ime for |
|00001780| 64 6f 69 6e 67 20 69 74 | 20 69 6e 2d 6c 69 6e 65 |doing it| in-line|
|00001790| 20 69 73 2e 2e 2e 2e 2e | 2e 3a 20 27 2c 20 69 6e | is.....|.: ', in|
|000017a0| 6c 69 6e 74 69 6d 65 20 | 2d 20 62 61 73 65 74 69 |lintime |- baseti|
|000017b0| 6d 65 29 3b 0d 20 20 20 | 20 77 72 69 74 65 6c 6e |me);.   | writeln|
|000017c0| 20 28 27 74 69 6d 65 20 | 66 6f 72 20 64 6f 69 6e | ('time |for doin|
|000017d0| 67 20 69 74 20 77 69 74 | 68 20 67 65 74 74 72 61 |g it wit|h gettra|
|000017e0| 70 61 64 64 72 3a 20 27 | 2c 20 67 65 74 74 72 74 |paddr: '|, gettrt|
|000017f0| 69 6d 65 20 2d 20 62 61 | 73 65 74 69 6d 65 29 3b |ime - ba|setime);|
|00001800| 0d 20 20 20 20 77 72 69 | 74 65 6c 6e 3b 0d 0d 20 |.    wri|teln;.. |
|00001810| 20 20 20 6c 6f 6f 70 73 | 20 3a 3d 20 6c 6f 6f 70 |   loops| := loop|
|00001820| 73 20 2a 20 31 30 3b 09 | 20 20 20 20 20 20 20 20 |s * 10;.|        |
|00001830| 7b 20 6c 6f 6f 70 20 73 | 69 7a 65 73 20 69 6e 63 |{ loop s|izes inc|
|00001840| 72 65 61 73 65 20 65 78 | 70 6f 6e 65 6e 74 69 61 |rease ex|ponentia|
|00001850| 6c 6c 79 20 7d 0d 20 20 | 65 6e 64 3b 0d 0d 20 20 |lly }.  |end;..  |
|00001860| 66 6c 75 73 68 65 76 65 | 6e 74 73 28 45 76 65 72 |flusheve|nts(Ever|
|00001870| 79 45 76 65 6e 74 2c 30 | 29 3b 0d 20 20 20 77 72 |yEvent,0|);.   wr|
|00001880| 69 74 65 6c 6e 20 28 27 | 63 6c 69 63 6b 20 74 6f |iteln ('|click to|
|00001890| 20 65 78 69 74 20 6f 72 | 20 74 61 6b 65 20 73 6e | exit or| take sn|
|000018a0| 61 70 73 68 6f 74 c9 27 | 29 3b 09 20 20 20 20 20 |apshot.'|);.     |
|000018b0| 20 20 20 7b 20 64 6f 6e | 27 74 20 67 6f 20 61 77 |   { don|'t go aw|
|000018c0| 61 79 20 79 65 74 2e 2e | 2e 20 7d 0d 20 20 52 65 |ay yet..|. }.  Re|
|000018d0| 70 65 61 74 0d 20 20 73 | 79 73 74 65 6d 74 61 73 |peat.  s|ystemtas|
|000018e0| 6b 3b 0d 20 44 6f 49 74 | 3a 3d 47 65 74 4e 65 78 |k;. DoIt|:=GetNex|
|000018f0| 74 45 76 65 6e 74 28 45 | 76 65 72 79 45 76 65 6e |tEvent(E|veryEven|
|00001900| 74 2c 45 76 65 6e 74 29 | 3b 0d 20 69 66 20 44 6f |t,Event)|;. if Do|
|00001910| 49 74 20 74 68 65 6e 0d | 20 09 43 61 73 65 20 45 |It then.| .Case E|
|00001920| 76 65 6e 74 2e 77 68 61 | 74 20 6f 66 0d 09 09 20 |vent.wha|t of... |
|00001930| 4b 65 79 44 6f 77 6e 3a | 20 62 65 67 69 6e 20 65 |KeyDown:| begin e|
|00001940| 6e 64 3b 0d 09 09 20 4d | 6f 75 73 65 64 6f 77 6e |nd;... M|ousedown|
|00001950| 3a 20 62 65 67 69 6e 20 | 46 69 6e 69 73 68 65 64 |: begin |Finished|
|00001960| 3a 3d 74 72 75 65 3b 20 | 65 6e 64 3b 0d 09 20 45 |:=true; |end;.. E|
|00001970| 6e 64 3b 0d 55 6e 74 69 | 6c 20 46 69 6e 69 73 68 |nd;.Unti|l Finish|
|00001980| 65 64 3b 0d 65 6e 64 2e | 09 09 09 09 20 20 20 20 |ed;.end.|....    |
|00001990| 20 20 20 20 7b 20 6f 66 | 20 6d 61 69 6e 20 70 72 |    { of| main pr|
|000019a0| 6f 67 72 61 6d 20 22 74 | 72 61 70 74 69 6d 65 22 |ogram "t|raptime"|
|000019b0| 20 20 7d 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |  }.....|........|
|000019c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a00| 00 00 01 00 00 00 01 19 | 00 00 00 19 00 00 00 46 |........|.......F|
|00001a10| 6b 20 70 6f 69 6e 74 65 | 72 0d 0d 76 69 64 73 65 |k pointe|r..vidse|
|00001a20| 6d 20 20 62 73 65 74 20 | 20 20 20 23 30 2c 69 62 |m  bset |   #0,ib|
|00001a30| 0d 74 72 61 70 73 70 65 | 65 64 2e 70 61 73 02 00 |.trapspe|ed.pas..|
|00001a40| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 00 00 80 |..TEXTED|IT......|
|00001a50| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 00 00 80 |..TEXTED|IT......|
|00001a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a70| 00 00 99 6e b3 f3 00 00 | 19 34 00 00 01 5f 6d 09 |...n....|.4..._m.|
|00001a80| 09 20 20 20 20 20 20 20 | 20 3b 20 79 65 73 3a 20 |.       | ; yes: |
|00001a90| 6c 6f 6f 70 20 75 6e 74 | 69 6c 20 77 65 20 73 65 |loop unt|il we se|
|00001aa0| 74 20 69 74 20 66 6f 72 | 20 6f 75 72 73 65 6c 76 |t it for| ourselv|
|00001ab0| 65 73 0d 0d 20 20 20 20 | 20 20 20 20 6d 6f 76 65 |es..    |    move|
|00001ac0| 2e 77 20 20 44 30 2c 69 | 72 65 71 28 41 30 29 09 |.w  D0,i|req(A0).|
|00001ad0| 20 20 20 20 20 20 20 20 | 3b 20 73 61 76 65 20 72 |        |; save r|
|00001ae0| 65 71 75 65 73 74 65 64 | 20 73 74 61 74 65 0d 0d |equested| state..|
|00001af0| 20 20 20 20 20 20 20 20 | 62 63 6c 72 20 20 20 20 |        |bclr    |
|00001b00| 00 00 00 0d 00 09 09 48 | 65 6c 76 65 74 69 63 61 |.......H|elvetica|
|00001b10| cb 00 00 00 04 00 02 00 | 08 00 00 01 00 00 00 01 |........|........|
|00001b20| 19 00 00 00 19 00 00 00 | 46 00 00 cc 24 02 f2 00 |........|F...$...|
|00001b30| 00 00 1c 00 46 00 01 45 | 46 4e 54 00 00 00 12 45 |....F..E|FNT....E|
|00001b40| 54 41 42 00 00 00 1e 03 | eb ff ff 00 00 00 00 00 |TAB.....|........|
|00001b50| 01 83 38 03 ec ff ff 00 | 00 00 11 00 01 83 30 00 |..8.....|......0.|
|00001b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+